fluidRow(
  column(
    width = 2,
    descriptionBlock(
      number = "　",
      header = tagList(icon("torii-gate"), i18n$t("国内事例")),
      text = i18n$t("チャーター便を含む")
    )
  ),
  column(
    width = 1,
    id = "domesticPCR",
    descriptionBlock(
      number = countup(sum(mhlwSummary[日付 == max(日付) & 分類 %in% 0:2]$検査人数) - sum(mhlwSummary[日付 == (max(日付) - 1) & 分類 %in% 0:2]$検査人数)),
      numberColor = "yellow",
      numberIcon = getChangeIconWrapper(sum(mhlwSummary[日付 == max(日付) & 分類 %in% 0:2]$検査人数) - sum(mhlwSummary[日付 == (max(日付) - 1) & 分類 %in% 0:2]$検査人数)),
      header = countup(sum(mhlwSummary[日付 == max(日付) & 分類 %in% 0:2]$検査人数)),
      rightBorder = F,
      text = i18n$t("検査人数")
    )
  ),
  bsTooltip(
    id = "domesticPCR",
    placement = "top",
    title = paste0(
      i18n$t("チャーター便を除く国内事例については、令和2年5月8日公表分から、データソースを従来の厚生労働省が把握した個票を積み上げたものから、各自治体がウェブサイトで公表している数等を積み上げたものに変更した。また、一部自治体について件数を計上しているため、実際の人数より過大である。"),
      sprintf(
        i18n$t("<hr>国内：%s (%s)<br>空港検疫：%s (+%s)<br>チャーター便：%s<br>コスタ・アトランチカ号：%s"),
        sum(mhlwSummary[日付 == max(日付) & 分類 %in% 0 & 都道府県名 != "伊客船"]$検査人数),
        getDiffValueAndSign(sum(mhlwSummary[日付 == max(日付) & 分類 %in% 0]$検査人数) - sum(mhlwSummary[日付 == (max(日付) - 1) & 分類 %in% 0]$検査人数)),
        sum(mhlwSummary[日付 == max(日付) & 分類 %in% 1]$検査人数),
        sum(mhlwSummary[日付 == max(日付) & 分類 %in% 1]$検査人数) - sum(mhlwSummary[日付 == (max(日付) - 1) & 分類 %in% 1]$検査人数),
        sum(mhlwSummary[日付 == max(日付) & 分類 %in% 2]$検査人数),
        mhlwSummary[日付 == max(日付) & 都道府県名== "伊客船"]$検査人数
      )
    )
  ),
  column(
    width = 1,
    id = "domesticConfirmed",
    descriptionBlock(
      number = countup(TOTAL_DOMESITC_DIFF + TOTAL_OFFICER_DIFF + TOTAL_FLIGHT_DIFF + tail(byDate$伊客船, n = 1)),
      numberColor = "red",
      numberIcon = getChangeIconWrapper(TOTAL_DOMESITC_DIFF + TOTAL_OFFICER_DIFF + TOTAL_FLIGHT_DIFF + tail(byDate$伊客船, n = 1)),
      header = countup(paste(TOTAL_DOMESITC + TOTAL_OFFICER + TOTAL_FLIGHT + sum(byDate$伊客船))),
      rightBorder = F,
      text = i18n$t("感染者")
    )
  ),
  bsTooltip(
    id = "domesticConfirmed",
    placement = "top",
    title = sprintf(
      i18n$t("国内事例：%s (+%s)<br>チャーター便：%s<br>コスタ・アトランチカ号：%s"),
      (TOTAL_DOMESITC + TOTAL_OFFICER), (TOTAL_DOMESITC_DIFF + TOTAL_OFFICER_DIFF),
      TOTAL_FLIGHT, sum(byDate$伊客船)
    )
  ),
  column(
    width = 1,
    id = "domesticDischarged",
    descriptionBlock(
      number = countup(sum(mhlwSummary[日付 == max(日付) & 分類 %in% 0:2]$退院者) - sum(mhlwSummary[日付 == max(日付) -1 & 分類 %in% 0:2]$退院者)),
      numberColor = "green",
      numberIcon = getChangeIconWrapper(
        sum(mhlwSummary[日付 == max(日付) & 分類 %in% 0:2]$退院者) - sum(mhlwSummary[日付 == max(日付) -1 & 分類 %in% 0:2]$退院者)),
      header = countup(sum(mhlwSummary[日付 == max(日付) & 分類 %in% 0:2]$退院者)),
      rightBorder = F,
      text = i18n$t("回復者")
    )
  ),
  bsTooltip(
    id = "domesticDischarged",
    placement = "top",
    title = sprintf(
      i18n$t("国内事例：%s (+%s)<br>空港検疫：%s (+%s)<br>チャーター便：%s（全員退院済み）"),
      sum(mhlwSummary[日付 == max(日付) & 分類 %in% 0]$退院者), 
      sum(mhlwSummary[日付 == max(日付) & 分類 %in% 0]$退院者) - sum(mhlwSummary[日付 == max(日付) -1 & 分類 %in% 0]$退院者),
      sum(mhlwSummary[日付 == max(日付) & 分類 %in% 1]$退院者),
      sum(mhlwSummary[日付 == max(日付) & 分類 %in% 1]$退院者) - sum(mhlwSummary[日付 == max(日付) -1 & 分類 %in% 1]$退院者),
      sum(mhlwSummary[日付 == max(日付) & 分類 %in% 2]$退院者)
    )
  ),
  column(
    width = 1,
    descriptionBlock(
      number = countup(DEATH_DOMESITC_DIFF + DEATH_OFFICER_DIFF),
      numberColor = "black",
      numberIcon = getChangeIconWrapper(DEATH_DOMESITC_DIFF + DEATH_OFFICER_DIFF),
      header = countup(paste(DEATH_DOMESITC + DEATH_OFFICER, "")),
      rightBorder = F,
      text = i18n$t("死亡者")
    )
  ),
  column(
    width = 2,
    id = "shipDescriptionBlock",
    descriptionBlock(
      number = "　",
      header = tagList(icon("ship"), i18n$t("クルーズ船")),
      text = ""
    )
  ),
  bsTooltip(
    id = "shipDescriptionBlock",
    title = i18n$t("ダイアモンド・プリンセス号：那覇港出港時点の人数は3711人。うち日本国籍の者1341人。"),
    placement = "top"
  ),
  column(
    width = 1,
    id = "shipPCRValue",
    # クルーズ船
    descriptionBlock(
      number = countup(mhlwSummary[日付 == max(日付) & 分類 %in% 3]$検査人数 - mhlwSummary[日付 == max(日付) - 1 & 分類 %in% 3]$検査人数),
      numberColor = "yellow",
      numberIcon = getChangeIconWrapper(mhlwSummary[日付 == max(日付) & 分類 %in% 3]$検査人数 - mhlwSummary[日付 == max(日付) - 1 & 分類 %in% 3]$検査人数),
      header = countup(mhlwSummary[日付 == max(日付) & 分類 %in% 3]$検査人数),
      rightBorder = F,
      text = i18n$t("検査人数")
    )
  ),
  bsTooltip(
    id = "shipPCRValue",
    title = paste(
      i18n$t("ダイアモンド・プリンセス号：令和２年３月５日まで延べ人数で公表されていたＰＣＲ検査の結果について、実員数で精査した結果は下記の数値のとおりです。<br><br>"),
      tags$a(
        href = "https://www.mhlw.go.jp/stf/newpage_09997.html",
        i18n$t("参考：横浜港で検疫中のクルーズ船の乗客・乗員に係る新型コロナウイルス感染症ＰＣＲ検査結果について")
      ),
      i18n$t("<br><br>※下船した方に対する健康フォローアップ期間中の249人に対するPCR検査数は含まれていない。")
    ),
    placement = "top"
  ),
  column(
    width = 1,
    id = "shipConfirmedValue",
    descriptionBlock(
      number = countup(TOTAL_SHIP_DIFF),
      numberColor = "red",
      numberIcon = getChangeIconWrapper(TOTAL_SHIP_DIFF),
      header = countup(TOTAL_SHIP),
      rightBorder = F,
      text = i18n$t("感染者")
    )
  ),
  bsTooltip(
    id = "shipConfirmedValue",
    title = i18n$t("船会社の医療スタッフとして途中乗船し、PCR陽性となった1名は含めず、チャーター便で帰国した40名を含む。"),
    placement = "top"
  ),
  column(
    width = 1,
    id = "shipDischargedValue",
    descriptionBlock(
      number = countup(mhlwSummary[日付 == max(日付) & 分類 %in% 3]$退院者 - mhlwSummary[日付 == max(日付) - 1 & 分類 %in% 3]$退院者),
      numberColor = "green",
      numberIcon = getChangeIconWrapper(mhlwSummary[日付 == max(日付) & 分類 %in% 3]$退院者 - mhlwSummary[日付 == max(日付) - 1 & 分類 %in% 3]$退院者),
      header =  countup(mhlwSummary[日付 == max(日付) & 分類 %in% 3]$退院者),
      rightBorder = F,
      text = i18n$t("回復者")
    )
  ),
  bsTooltip(
    id = "shipDischargedValue",
    title = i18n$t("チャーター便で帰国した者を除く。"),
    placement = "top"
  ),
  column(
    width = 1,
    id = "shipDeathValue",
    descriptionBlock(
      number = countup(DEATH_SHIP_DIFF),
      numberColor = "black",
      numberIcon = getChangeIconWrapper(DEATH_SHIP_DIFF),
      header = countup(paste(DEATH_SHIP, "")),
      rightBorder = F,
      text = i18n$t("死亡者")
    )
  ),
  bsTooltip(
    id = "shipDeathValue",
    title = i18n$t("この他にチャーター便で帰国後、3月1日に死亡したとオーストラリア政府が発表した１名がいる。"),
    placement = "top"
  )
)
